; $VER: AHI Install 4.13 (8.10.97)
; Description: Installer script for the AHI audio system ( 1996, 1997 Martin Blom).
; Done my Martin Blom, partly based on Teemu Suikki's install script.
; Public domain.
;
; $Id: Install\040AHI,v 4.14 1997/11/02 02:01:29 lcs Exp lcs $
; $Log: Install\040AHI,v $
; Revision 4.14  1997/11/02 02:01:29  lcs
; Added Concierto.
;
; Revision 4.13  1997/10/09 01:08:49  lcs
; Added the language Hrvatski.
;
; Revision 4.12  1997/09/28 04:36:32  lcs
; Added Maestro Pro
;

(set #complete 0)
(set #completeadd (/ 1000 35))	; There are 35 complete statements!

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

(set #osversion (/ (getversion "exec.library" (resident)) 65536))

;**
;** All the strings
;**

	(set #t_welcome		(cat
		" Welcome to the AHI installation. AHI is a retargetable"
		" audio systems that can be used with both the built-in"
		" sound chip (Paula) and several sound cards. This is version"
		" 4."
	))
	(set #t_oldinstaller	(cat
		" You have an old version of the Installer. I'll probably"
		" need version 43.3 or greater. You can continue anyway"
		" but there is no guarantee it will work as it's supposed"
		" to do.\n"
		" Do you wish to continue anyway?"
	))
	(set #t_oldinstallerhelp (cat
		" The version of Installer you use is too old. You can"
		" find a more recent version on the Internet, for example"
		" on Aminet, in the util/misc directory. The current"
		" file name is \"Installer-43_3.lha\":\n"
		" <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
	
	))
	(set #t_installaborted	"Installation aborted.")

	(set #t_installing	"Installing ")
	(set #t_installingdocs	"Installing developer documentation")
	(set #t_installingincs	"Installing include files")
	(set #t_installingsrc	"Installing example source code")
	(set #t_nofiles		"No files to install.")

	(set #t_nohelp		"No help available.")

	(set #t_parts		"Which parts of AHI do you wish to install?")
	(set #t_system		"System files")
	(set #t_prefs		"Preferences program")
	(set #t_audio		"The AUDIO handler");
	(set #t_userdoc		"User's documentation")
	(set #t_a-developer	"Application developer files")
	(set #t_d-developer	"Driver developer files")
	(set #t_userhelp	(cat
		"System files:\n"
		" The system files. This is the heart of AHI and must be"
		" if for any of the other components to work.\n\n"
		"Preferences program:\n"
		" The preference program. Can be used to change many options"
		" in AHI. This part of AHI requires BGUI or MUI to be installed.\n\n"
		"The AUDIO handler:\n"
		" Allows you to play and record samples with the 'copy'"
		" command.\n\n"
		"User's documentation:\n"
		" An AmigaGuide file descibing the AHI audio system and"
		" its components.\n\n"
	))
	(set #t_devhelp		(cat
		"Application developer files:\n"
		" Autodocs, include files, example source code etc."
		" Required if you wish to use AHI in your own applications.\n\n"
		"Driver developer files:\n"
		" Autodocs, example source code etc. Only required"
		" if you plan to write hardware drivers for sound"
		" cards.\n\n"
	))

	(set #t_gui		(cat
		" Which version of the preferences program would you like"
		" to install?"
	))
	(set #t_guihelp		(cat
		" Please select which GUI system you prefer.\n\n"
	))
	(set #t_guibgui		"BGUI version")
	(set #t_guimui		"MUI version")

	(set #t_icon 		"Which icon do you want to install?")
	(set #t_iconstd		"Plain 4 colour icon")
	(set #t_iconmwb		"8 colour MagicWB icon")
	(set #t_iconhelp	(cat
		" Select which icon you would like to use for the prefernces"
		" program. The MagicWB icon was designed by Erol Ismael.\n\n"
	))

	(set #t_languages	(cat
		"Which languages do you want to install?"
		" The built-in language is English."))
	(set #t_languageshelp	(cat
		" If your language is not in the list, the author of AHI"
		" would be very happy if you made a translation. Edit the files"
		" User/Catalogs/ahi.ct and User/Catalogs/ahiprefs.ct"
		" and send it to this address:\n"
		" lcs@lysator.liu.se\n"
		" It may be a wise move to ask first, just to make sure nobody"
		" else is working on a translation to your language.\n\n"
	))

	(set #t_drivers		(cat
		"Which AHI drivers you want to install?"
		" Do not install drivers for sound cards you don't have."))
	(set #t_drivershelp	(cat
		"Concierto:\n"
		" Concierto sound card.\n\n"
		"Delfina:\n"
		" Delfina Classic/Lite sound card.\n\n"
		"Filesave:\n"
		" Read/Write sample data to a file.\n\n"
		"Maestro Pro:\n"
		" Maestro Pro sound card.\n\n"
		"Melody MPEG:\n"
		" Melody MPEG sound card.\n\n"
		"Paula:\n"
		" Regular Amiga sound hardware.\n\n"
		"Prelude:\n"
		" Prelude sound card.\n\n"
		"Toccata:\n"
		" Toccata sound card.\n\n"
		"Wavetools:\n"
		" Wavetools sound card.\n\n"
	))

	(set #t_CPUver		"Which version of the binaries do you wish to install?")
	(set #t_CPUverhelp	(cat
		" 68020-optimized binaries are much faster, and often also"
		" smaller than plain 68000 versions. In the case of AHI,"
		" the 68000 versions have less features and reduced sound"
		" quality. It is strongly suggested that you use the"
		" 68020 versions of the binaries.\n"
                " The 68060 version avoids the slow 64 bit divisions. Don't"
                " install this version unless you own a 68060 CPU!\n\n"
	))

	(set #t_devfiles	"Which developer files do you wish to install?")
	(set #t_devdocs		"Autodocs and AHI Developer's Guide")
	(set #t_source		"Example source code")
	(set #t_asm		"Assembler include files")
	(set #t_cgen		"Generic C include files")
	(set #t_e		"E module files")
	(set #t_fd		"FD files")
	(set #t_ade		"Extra ADE gcc include files")
	(set #t_sas		"Extra SAS/C (and DICE) include files")
	(set #t_storm		"Extra StormC include files")
	(set #t_devfileshelp	(cat
		"Autodocs and AHI Developer's Guide:\n"
		" The autodocs and rules for programming AHI.\n\n"
		"Example source code:\n"
		" Some example programs, most of them are written in C, but"
		" there are some assembler sources too.\n\n"
		"Assembler include files:\n"
		" Include files needed if you program in assembler.\n\n"
		"Generic C include files:\n"
		" Include files needed if you program in C.\n\n"
		"E module files:\n"
		" The module files to use with AmigaE.\n\n"
		"FD files:\n"
		" Can be used with the 'lvo' tool, or when you build a"
		" hardware driver written in C.\n\n"
		"Extra ADE gcc include files:\n"
		" The special include files for gcc (inline, proto etc).\n\n" 
		"Extra SAS/C (and DICE) include files:\n"
		" The special include files for SAS/C (pragmas, proto etc)."
		" They work with DCC too, but with no tag calls.\n\n"
		"Extra StormC include files:\n"
		" The special include files for StormC (pragma, proto etc).\n\n"
	))


	(set #t_nodevs
		"Cannot find the Devs: assign. Try a higher userlevel instead.")
	(set #t_noc
		"Cannot find the C: assign. Try a higher userlevel instead.")
	(set #t_noprefs
		"Cannot find the Sys:Prefs directory. Try a higher userlevel instead.")
	(set #t_nol
		"Cannot find the L: assign. Try a higher userlevel instead.")
	(set #t_devspath	"Where do you want to install the system files?")
	(set #t_devspathhelp	(cat
		" The directory you select must be a part of your Devs: assign."
		" The installer will copy ahi.device, the hardware drivers"
		" and the audio mode description files to this directory."
		" Subdirectories for the drivers and mode files will be"
		" created.\n\n"
	))
	(set #t_cpath		"Where do you want to install AddAudioModes?")
	(set #t_cpathhelp	(cat
		" AddAudioModes is a small command line utility that can"
		" be used to manipulate the database which contains the"
		" audio modes (much like the screenmode database)."
		" CLI programs are normally located in the C: directory.\n\n"
	))


	(set #t_localepath	"Where do you want to install the catalogs?")
	(set #t_localepathhelp	(cat
		" The directory you select must be a part of your Locale: assign."
		" The installer will copy the catalogs you have selected to"
		" subdirectories in this directory.\n\n"
	))

	(set #t_prefspath	"Where do you want to install the preferences program?")
	(set #t_prefspathhelp	(cat
		" The preferences program lets you configure AHI for your particular"
		" configuration. You can select which sound hardware you prefer"
		" to use, which physical inputs and outputs you wish to use"
		" etc. Preferences programs are normally located in the"
		" Sys:Prefs/ directory.\n"
		" This program requires BGUI or MUI, depending on which version"
		" you are installing.\n\n"
	))

	(set #t_audiohelp	(cat
		" The AUDIO handler is used to mount a device called AUDIO:. By"
		" copying files to and from this device, you can play and record"
		" raw sample data, IFF-AIFF or IFF-AIFC files.\n\n"
	))

	(set #t_lpath		"Where do you want to install the AUDIO handler?")
	(set #t_lpathhelp	(cat
		#t_audiohelp
		" Handlers are normally located in the L: directory.\n\n"
	))

	(set #t_dosdevpath	"Where do you want to install the AUDIO mount entry?")
	(set #t_dosdevpathhelp	(cat
		#t_audiohelp
		" Mount entries are normally located in the Devs:DOSDrivers"
		" directory if they are to be mounted at boot time. If not, they"
		" probably are in the SYS:Storage/DOSDrivers directory.\n\n"
	))

	(set #t_dosdriver	"Do you want the handler to be activated at boot time?")
	(set #t_dosdriverhelp	(cat
		" If you want, the AUDIO: device can be made avaliable as soon as"
		" your system has been started. This saves you the effort of"
		" having to mount it manually when you want to use it. It does"
		" not require much memory to mount the device and it is therefor"
		" suggested that you select 'Yes'.\n\n"
	))

	(set #t_userdocpath	"Where do you want to install the user documentation?")
	(set #t_userdocpathhelp	(cat
		" This is an AmigaGuide file descibing the AHI audio system"
		" and its components.\n\n"
	))

	(set #t_srcpath		(cat
		" Where do you want to install the example source code?"
		" A directory called AHI will be created there."
	))
	(set #t_srcpathhelp	(cat
		" The example sources, in both C and assembler, will be"
		" stored in a subdirectory called AHI. Any files currently"
		" present in the AHI directory will be deleted!\n\n"
	))
	(set #t_oldsrc		(cat
		" There is already a directory called AHI here."
		" All files in it will be deleted."
	))

	(set #t_devdocspath	" Where do you want to store the developer documentation?")
	(set #t_devdocspathhelp	(cat
		" The installer will place the autodoc files and the"
		" AHI Developer's Guide in the directory you select.\n\n"
	))

	(set #t_aincpath	" Where are your assembler include files located?")
	(set #t_aincpathhelp	(cat
		" The installer will place the assembler include files"
		" in subdirectories (lvo, devices and libraries)"
		" of the one you select.\n\n"
	))

	(set #t_fdpath		" Where do you keep your FD-files?")
	(set #t_fdpathhelp	(cat
		" FD-files are files describing a library's or a device's"
		" functions. They can be used with the 'lvo' program, and"
		" can also be useful if you write hardware drivers.\n\n"
	))

	(set #t_cincpath	" Where are your C include files located?")
	(set #t_cincpathhelp	(cat
		" The installer will place the generic C include files"
		" in subdirectories (clib, devices and libraries)"
		" of the one you select.\n\n"
	))

	(set #t_emodpath	" Where are your E module files located?")
	(set #t_emodpathhhelp	(cat
		" The installer will place the E module files in the directory"
		" and in subdirectories (devices and libraries)"
		" of the one you select.\n\n"
	))

	(set #t_adeincpath	" Where do you want to place the ADE gcc include files?")
	(set #t_adeincpathhelp	(cat
		" gcc needs some extra files to find out which registers"
		" to use when calling AHI functions. That information is"
		" located in these files, which will be copied to the"
		" inline, pragmas and proto directories.\n\n"
	))

	(set #t_sasincpath	" Where do you want to place the SAS/C (and DICE) include files?")
	(set #t_sasincpathhelp	(cat
		" SAS/C (and DICE) needs some extra files to find out which registers"
		" to use when calling AHI functions. That information is"
		" located in these files, which will be copied to the"
		" pragmas and proto directories.\n\n"
	))

	(set #t_stormincpath	" Where do you want to place the StormC include files?")
	(set #t_stormincpathhelp (cat
		" StormC needs some extra files to find out which registers"
		" to use when calling AHI functions. That information is"
		" located in these files, which will be copied to the"
		" pragma and proto directories.\n\n"
	))

	(set #t_ahidevhelp	(cat
		" ahi.device is the heart of the AHI"
		" audio system. This is the only part"
		" that other programs knows anything about.\n\n"
	))

	(set #t_runaddmodes	(cat
		" About to run AddAudioModes to recreate"
		" the audio modes database."
	))


	(set #t_overwritemode1
		" There is already a copy of the audio mode descriptor ")
	(set #t_overwritemode2 " present in ")
	(set #t_overwritemode3	(cat
		".\n\n"
		" Do you want to overwrite it?"
		" All changes you have done to to it will be lost!"
	))


(if (= @language "srpski")
(	; Translated by Ljubomir Jankovic <lurch@afrodita.rcub.bg.ac.yu>
	(set #t_welcome		(cat
		" Dobrodoli u AHI instalaciju. AHI je retargetable"
		" audio sistem koji moe biti korien sa ugraenim"
		" zvunim ipom (Paula) i vie zvunih kartica."
		" Ovo je verzija 4."
	))
	(set #t_oldinstaller	(cat
		" Vi imate staru verziju Installer-a. Verovatno e mi"
		" trebati verzija 43.3 ili via. Moete nastaviti, ali"
		" nema garancije da e sve raditi kako je predvieno.\n"
		" Da li stvarno elite da nastavite?"
	))
	(set #t_oldinstallerhelp (cat
		" Verzija Installer-a koju koristite previe stara. Moete"
		" nai najnoviju verziju na Internetu, na primer"
		" na Aminet-u, u direktorijumu util/misc. Trenutno ime"
		" fajla je \"Installer-43_3.lha\":\n"
		" <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"

	))
	(set #t_installaborted	"Instalacija prekinuta.")

	(set #t_installing	"Instaliram ")
	(set #t_installingdocs	"Instaliram dokumentaciju za programere")
	(set #t_installingincs	"Instaliram include fajlove")
	(set #t_installingsrc	"Instaliram primere izvornog koda")
	(set #t_nofiles		"Nema fajlova za instaliranje.")

	(set #t_nohelp		"Pomo nije dostupna.")

	(set #t_parts		"Koje delove AHI-ja elite de instalirate?")
	(set #t_system		"Sistemske fajlove")
	(set #t_prefs		"Program za podeavanja")
	(set #t_audio		"AUDIO hendler");
	(set #t_userdoc		"Korisnika dokumentacija")
	(set #t_a-developer	"Fajlovi za razvoj aplikacija")
	(set #t_d-developer	"Fajlovi za razvoj drajvera")
	(set #t_userhelp	(cat
		"Sistemski fajlovi:\n"
		" Ovo je srce AHI-ja i mora postojati"
		" da bi radile ostale komponente.\n\n"
		"Program za podeavanja:\n"
		" Moe se koristiti za podeavanje mnogih opcija"
		" AHI-ja. Ovaj deo AHI-ja zahteva da se instalira BGUI.\n\n"
		"AUDIO hendler:\n"
		" Omoguava Vam da putate i snimate semplove komandom"
		" 'copy'.\n\n"
		"Korisnika dokumentacija:\n"
		" AmigaGuide fajl koji opisuje AHI audio sistem i"
		" njegove komponente.\n\n"
	))
	(set #t_devhelp		(cat
		"Fajlovi za razvoj aplikacija:\n"
		" Autodokovi, include fajlovi, primeri izvornog koda itd."
		" Oni su neophodni ako elite da koritite AHI u svoji aplikacijama.\n\n"
		"Fajlovi za razvoj drajvera:\n"
		" Autodokovi, primeri izvornog koda itd. Potrebni su"
		" samo ako planirate da razvijate hardverske drajvere za"
		" zvune kartice.\n\n"
	))


	(set #t_languages	(cat
		"Koje jezike elite da instalirate?"
		" Ugraeni jezik je Engleski."))
	(set #t_languageshelp	(cat
		" Ako se Va jezik ne nalazi na listi, autor AHI-ja"
		" bi bio veoma srean, ako bi napravili prevod. Promenite fajlove"
		" User/Catalogs/NewCatalog.ct i User/Catalogs/NewPrefsCatalog.ct"
		" i poaljite na ovu adresu:\n"
		" lcs@lysator.liu.se\n\n"
	))

	(set #t_drivers		(cat
		"Koje AHI drajvere elite da instalirate?"
		" Najbolje je da instalirate samo drajvere koji su Vam potrebni."))
	(set #t_drivershelp	(cat
		"Concierto:\n"
		" Concierto zvuna kartica.\n\n"
		"Delfina:\n"
		" Delfina Classic/Lite zvuna kartica.\n\n"
		"Filesave:\n"
		" itanje/zapis zvunih podataka u fajl.\n\n"
		"Maestro Pro:\n"
		" Maestro Pro zvuna kartica.\n\n"
		"Melody MPEG:\n"
		" Melody MPEG zvuna kartica.\n\n"
		"Paula:\n"
		" Obian Amigin zvuni hardver.\n\n"
		"Prelude:\n"
		" Prelude zvuna kartica.\n\n"
		"Toccata:\n"
		" Toccata zvuna kartica.\n\n"
		"Wavetools:\n"
		" Wavetools zvuna kartica.\n\n"
	))
	(set #t_CPUver		"Koju verziju programskih fajlova elite da instalirate?")
	(set #t_CPUverhelp	(cat
		" Fajlovi optimizovani za 68020 su bri, i obino"
		" manji nego njihove 68000 verzije. U sluaju AHI-ja,"
		" verzije za 68000 imaju manje mogunosti i smanjen"
		" kvalitet zvuka. Zaista Vam preporuujem da instalirate"
		" verzije fajlova za 68020.\n"
		" Verzija za 68060 izbegava sporo 64-vorobitno deljenje. Nemojte"
		" instalirati ovu verziju ako nemate 68060 procesor!\n\n"
	))

	(set #t_devfiles	"Koje programerske fajlove elite da instalirate?")
	(set #t_devdocs		"Autodokove i AHI Vodi za programere")
	(set #t_source		"Primeri izvornog koda")
	(set #t_asm		"Include fajlove za asembler")
	(set #t_cgen		"Opte include fajlove za C")
	(set #t_e		"E module")
	(set #t_fd		"FD fajlove")
	(set #t_ade		"Dodatne ADE gcc include fajlove")
	(set #t_sas		"Dodatne SAS/C (i DICE) include fajlove")
	(set #t_storm		"Dodatne StormC include fajlove")
	(set #t_devfileshelp	(cat
		"Autodokovi i AHI Vodi za programere:\n"
		" Autodokovi i pravila za programiranje AHI-ja.\n\n"
		"Primeri izvornog koda:\n"
		" Neki programi za primer, veina napisan u C-u, ali ima"
		" i neto izvornog koda u asembleru.\n\n"
		"Include fajlovi za asembler:\n"
		" Include fajlovi koji su potrebni ako programirate u asembleru.\n\n"
		"Opti include fajlovi za C:\n"
		" Include fajlovi koji su potrebni ako programirate u C-u.\n\n"
		"E moduli:\n"
		" Moduli za korienje u Amiga E-u.\n\n"
		"FD fajlovi:\n"
		" Mogu se koristiti sa programom 'lvo', ili kada pravite"
		" hardverski drajver napisan u C-u.\n\n"
		"Dodatni ADE gcc include fajlovi:\n"
		" Specijalni include fajlovi za gcc (inline, proto itd.).\n\n"
		"Dodatni SAS/C (i DICE) include fajlovi:\n"
		" Specijalni include fajlovi za SAS/C (pragma, proto itd.)."
		" Rade i sa DCC-om, ali bez poziva tag-ova.\n\n"
		"Dodatni StormC include fajlovi:\n"
		" Specijalni include fajlovi za StormC (pragma, proto itd.).\n\n"
	))


	(set #t_nodevs
		"Ne mogu da naem Devs: asajn. Pokuajte vii korisniki nivo.")
	(set #t_noc
		"Ne mogu da naem C: asajn. Pokuajte vii korisniki nivo.")
	(set #t_noprefs
		"Ne mogu da naem Sys:Prefs directory. Pokuajte vii korisniki nivo.")
	(set #t_nol
		"Ne mogu da naem L: asajn. Pokuajte vii korisniki nivo.")
	(set #t_devspath	"Gde elite da instalirate sistemske fajlove?")
	(set #t_devspathhelp	(cat
		" Direktorijum koji odaberete mora biti deo Vaeg Devs: asajna."
		" Installer e kopirati ahi.device, hardverske drajvere"
		" i fajlove sa opisima audio modova u ovaj direktorijum."
		" Poddirektorijumi za drajvere i fajlove sa opisima modova"
		" e biti napravljeni.\n\n"
	))
	(set #t_cpath		"Gde elite da instalirate AddAudioModes?")
	(set #t_cpathhelp	(cat
		" AddAudioModes je mali CLI program koji se moe koristiti"
		" za manipulaciju baze podataka koja sadri audio modove"
		" (vrlo slino bazi podataka sa moguim rezolucijama ekrana)."
		" CLI programi se obino nalaze u C: direktorijumu.\n\n"
	))


	(set #t_localepath	"Gde elite da instalirate kataloge?")
	(set #t_localepathhelp	(cat
		" Direktorijum koji odaberete mora biti deo Locale: asajna."
		" Installer e kopirati kataloge koje odaberete u"
		" poddirektorijume u ovom direktorijumu.\n\n"
	))

	(set #t_prefspath	"Gde elite da instalirate program za podeavanja?")
	(set #t_prefspathhelp	(cat
		" Program za podeavanja Vam omoguava da podesite AHI vaoj"
		" konkretnoj konfiguraciji. Moete odabrati koji zvuni hardver"
		" elite da koristite, koje fizike ulaze i izlaze elite da"
		" koritite itd. Programi za podeavanja se obino nalaze u"
		" Sys:Prefs/ direktorijumu.\n"
		" Ovaj program zahteva BGUI biblioteku.\n\n"
	))

	(set #t_audiohelp	(cat
		" AUDIO hendler se koristi za mount-ovanje AUDIO: ureaja. Kopirajui"
		" fajlove na i sa ureaja, moete putati i snimati sirove zvune"
		" podatke, IFF-AIFF ili IFF-AIFC fajlove.\n\n"
	))

	(set #t_lpath		"Gde elite da instalirate AUDIO hendler?")
	(set #t_lpathhelp	(cat
		#t_audiohelp
		" Hendleri se obino nalaze u L: direktorijumu.\n\n"
	))

	(set #t_dosdevpath	"Gde elite da instalirate fajl za mount-ovanje AUDIO hendlera?")
	(set #t_dosdevpathhelp	(cat
		#t_audiohelp
		" Mount fajlovi se nalaze u direktorijumu Devs:DOSDrivers"
		" ako treba da se mount-uju pri dizanju sistema. Ako ne, onda"
		" se verovatno nalaze u SYS:Storage/DOSDrivers direktorijumu.\n\n"
	))

	(set #t_dosdriver	"Da li elite da hendler bude instaliran pri dizanju sistema?")
	(set #t_dosdriverhelp	(cat
		" Ako elite, AUDIO: ureaj moe biti dostupan im se digne sistem."
		" Ovo vam omoguava da ne morate da mount-ujete ureaj svaki put"
		" kada elite da ga koristite. Ureaj ne zahteva mnogo memorije"
		" i zato preporuujem da da odaberete 'Da'.\n\n"
	))

	(set #t_userdocpath	"Gde elite da instalirate korisniku dokumentaciju?")
	(set #t_userdocpathhelp	(cat
		" Ovo je AmigaGuide fajl koji opisuje AHI audio sistem"
		" i njegove komponente.\n\n"
	))

	(set #t_srcpath		(cat
		" Gde elite da instalirate primere izvornog koda?"
		" Direktorijum sa imenom AHI bie napravljen tamo."
	))
	(set #t_srcpathhelp	(cat
		" Primeri izvornog koda, i u C-u i asembleru, e biti"
		" stavljeni u poddirektorijum imena AHI. Svi fajlovi koji"
		" se nalaze u AHI direktorijumu e biti obrisani!\n\n"
	))
	(set #t_oldsrc		(cat
		" Ovde ve postoji direktorijum imena AHI."
		" Svi fajlovi u njemu e biti obrisani."
	))

	(set #t_devdocspath	" Gde elite da stavite dokumentaciju za programere?")
	(set #t_devdocspathhelp	(cat
		" Installer e staviti autodok fajlove i dokumentaciju za"
		" razvoj AHI-ja direktorijum koji odaberete.\n\n"
	))

	(set #t_aincpath	" Gde se nalaze Vai include fajlovi za asembler?")
	(set #t_aincpathhelp	(cat
		" Installer e smestiti include fajlove za asembler"
		" u poddirektorijume (lvo, devices i libraries)"
		" direktorijuma koji odaberete.\n\n"
	))

	(set #t_fdpath		" Gde drite Vae FD fajlove?")
	(set #t_fdpathhelp	(cat
		" FD fajlovi su fajlovi koji opisuju funkcije biblioteke"
		" i ureaja. Mogu se koristiti sa programom 'lvo', i"
		" i mogu biti korisni ako piete hardverske drajvere.\n\n"
	))

	(set #t_cincpath	" Gde se nalaze Vai C include fajlovi?")
	(set #t_cincpathhelp	(cat
		" Installer e smestiti opte include fajlove za C"
		" u poddirektorijume (clib, devices i libraries)"
		" direktorijuma koji odaberete.\n\n"
	))

	(set #t_emodpath	"  Gde se nalaze Vai E modul fajlovi?")
	(set #t_emodpathhhelp	(cat
		" Installer e smestiti E modul fajlove u direktorijum"
		" i poddirektorijume (devices i libraries)"
		" direktorijuma koji odaberete.\n\n"
	))

	(set #t_adeincpath	" Gde elite da smestite ADE gcc include fajlove?")
	(set #t_adeincpathhelp	(cat
		" gcc-u trebaju neki dodatni fajlovi da bi naao koje registre"
		" da koristi pri pozivu AHI funkcija. Te informacije se nalaze"
		" u ovim fajlovima, koji e biti kopirani u direktorijume "
		" inline, pragmas i proto.\n\n"
	))

	(set #t_sasincpath	" Gde elite da smestite SAS/C (i DICE) include fajlove?")
	(set #t_sasincpathhelp	(cat
		" SAS/C-u (i DICE-u) trebaju neki dodatni fajlovi da bi naao"
		" koje registre da koristi pri pozivu AHI funkcija. Te informacije"
		" se nalaze u ovim fajlovima, koji e biti kopirani u pragmas"
		" i proto direktorijume.\n\n"
	))

	(set #t_stormincpath	" Gde elite da smestite StormC include fajlove?")
	(set #t_stormincpathhelp (cat
		" StormC-u neki dodatni fajlovi da bi naao koje registre"
		" da koristi pri pozivu AHI funkcija. Te informacije se nalaze"
		" u ovim fajlovima, koji e biti kopirani u pragma i proto"
		" direktorijume.\n\n"
	))

	(set #t_ahidevhelp	(cat
		" ahi.device je srce AHI audio"
		" sistema. Ovo je jedini deo za koga"
		" drugi programi znaju.\n\n"
	))

	(set #t_runaddmodes	(cat
		" Upravo startujem AddAudioModes da bih"
		" osveio bazu audio modova."
	))


	(set #t_overwritemode1
		" Ve postoji fajl sa opisom audio moda ")
	(set #t_overwritemode2 " prisutan u ")
	(set #t_overwritemode3	(cat
		".\n\n"
		" Da li elite da zapiem preko njega?"
		" Sve promene koje ste nainili na njemu bie izgubljene!"
	))
))

(if (= @language "suomi")
(	; Translated by Petteri Kallio <k140734@cs.tut.fi>
	(set #t_welcome		(cat
		" Tervetuloa AHI-asennukseen. AHI on nijrjestelm,"
		" jonka avulla saat kyttsi Amigan standardin nipiirin"
		" (Paula) lisksi mys useita varsinaisia nikortteja."
		" Tm on AHI:n neljs (4.) versio."
	))
	(set #t_oldinstaller	(cat
		" Kytsssi on Installer-ohjelman vahentunut versio."
		" Voit jatkaa asennusta, mutta asennuksessa saattaa"
		" menn jotain pieleen. Todennkisesti tarvitsen"
		" Installer-ohjelman version 43.3 tai uudemman."
		" Haluaisitko kuitenkin jatkaa asennusta?"
	))
	(set #t_oldinstallerhelp (cat
		" Kyttmsi Installer-ohjelma on liian vanha versio."
		" Lydt uudemman version vaikkapa Internetist, esim."
		" Aminetist, hakemistosta util/misc. Tuoreimman"
		" Installer-ohjelman nimi on  \"Installer-43_3.lha\":\n"
		" <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"
	
	))
	(set #t_installaborted	"Asennus keskeytetty.")

	(set #t_installing	"Asennan... ")
	(set #t_installingdocs	"Asennan kehitysympristn ohjetiedostoja")
	(set #t_installingincs	"Asennan include-tiedostoja")
	(set #t_installingsrc	"Asennan esimerkkilhdekoodeja")
	(set #t_nofiles		"Ei asennettavia tiedostoja.")

	(set #t_nohelp		"Ohjeita ei ole saatavissa.")

	(set #t_parts		"Mitk osat AHI:sta haluat asentaa?")
	(set #t_system		"Jrjestelmtiedostot")
	(set #t_prefs		"Asetusohjelma")
	(set #t_audio		"AUDIO-ksittelij");
	(set #t_userdoc		"Kyttjn ohjeet")
	(set #t_a-developer	"Sovellusten kehitysympristn tiedostot")
	(set #t_d-developer	"Ajurien kehitysympristn tiedostot")
	(set #t_userhelp	(cat
		"Jrjestelmtiedostot:\n"
		" Tm on AHI-nijrjestelmn sydn."
		" Se tytyy olla asennettuna, ennen kuin AHI:n muut"
		" osat toimivat.\n\n"
		"Asetusohjelma:\n"
		" Asetusohjelmaa kytetn muokkaamaan AHI:n lukuisia asetuksia.\n"
		" Asetusohjelma vaatii, ett BGUI on asennettu.\n\n"
		"AUDIO-ksittelij:\n"
		" Mahdollistaa nitiedostojen toiston ja tallennuksen"
		" 'copy'-komennon avulla.\n\n"
		"Kyttjn ohjeet:\n"
		" AmigaGuide-muotoinen tiedosto, jossa selvitetn"
		" AHI-nijrjestelm ja sen eri osat.\n\n"
	))
	(set #t_devhelp		(cat
		"Sovellusten kehitysympristn tiedostot:\n"
		" Autodocit, include-tiedostot, esimerkkilhdekoodit jne."
		" Tarpeellisia jos haluat kytt AHI-nijrjestelm"
		" omissa sovellusohjelmissasi.\n\n"
		"Ajurien kehitysympristn tiedostot:\n"
		" Autodocit, esimerkkilhdekoodit jne. Tarpeellisia ainoastaan"
		" jos aiot tehd uusia nikorttiajureita.\n\n"
	))


	(set #t_languages	(cat
		"Mille kielille haluat tehd asennuksen?"
		" Valmiskielen on englanti."))
	(set #t_languageshelp	(cat
		" Jos oma kielesi ei ole listassa, AHI:n tekij olisi"
		" mielissn, jos sin voisit tehd knnksen omalle"
		" kielellesi. Knn tiedostot User/Catalogs/NewCatalog.ct"
		" ja User/Catalogs/NewPrefsCatalog.ct, ja lhet ne"
		" thn osoitteeseen:\n"
		" lcs@lysator.liu.se\n\n"
	))

	(set #t_drivers		(cat
		"Mitk AHI-ajurit haluat asentaa?"
		" Asenna ainoastaan tarvitsemasi ajurit."))
	(set #t_drivershelp	(cat
		"Concierto:\n"
		" Concierto-nikortti.\n\n"
		"Delfina:\n"
		" Delfina Classic/Lite -nikortti.\n\n"
		"Filesave:\n"
		" Kirjoita/lue nitiedosto tiedostoon.\n\n"
		"Maestro Pro:\n"
		" Maestro Pro -nikortti.\n\n"
		"Melody MPEG:\n"
		" Melody MPEG-nikortti.\n\n"
		"Paula:\n"
		" Amigan perusnijrjestelm.\n\n"
		"Prelude:\n"
		" Prelude-nikortti.\n\n"
		"Toccata:\n"
		" Toccata-nikortti.\n\n"
		"Wavetools:\n"
		" Wavetools-nikortti.\n\n"
	))

	(set #t_CPUver		"Mitk versiot ohjelmakoodista haluat asentaa?")
	(set #t_CPUverhelp	(cat
		" 68020-prosessorille optimoidut versiot ovat nopeampia ja"
		" usein pienikokoisempia kuin 68000-prosessorille tehdyt"
		" perusversiot. AHI-nijrjestelmn 68000-versioissa on"
		" vhemmn ominaisuuksia ja huonompi nenlaatu."
		" 68020-versiot kannattaa asentaa, jos kytsssi"
		" on vhintn 68020-prosessorilla varustettu kone.\n"
		" 68060-versio vltt hitaita 64-bittisi jakolaskuja. l"
		" asenna tt versiota ellei sinulla ole 68060-prosessoria!\n\n"
	))

	(set #t_devfiles	"Mitk kehitysympristn tiedostot haluat asentaa?")
	(set #t_devdocs		"Autodocit ja AHI-kehitysympristn ohjeet")
	(set #t_source		"Esimerkkilhdekoodit")
	(set #t_asm		"Assemblerin include-tiedostot")
	(set #t_cgen		"Yleiset C include-tiedostot")
	(set #t_e		"E moduletiedostot")
	(set #t_fd		"FD-tiedostot")
	(set #t_ade		"Ylimriset ADE gcc include-tiedostot")
	(set #t_sas		"Ylimriset SAS/C (ja DICE) include-tiedostot")
	(set #t_storm		"Ylimriset StormC include-tiedostot")
	(set #t_devfileshelp	(cat
		"Autodocit ja AHI-kehitysympristn ohjeet:\n"
		" AHI:n autodocit ja ohjelmointisnnt.\n\n"
		"Esimerkkilhdekoodit:\n"
		" Joitain esimerkkiohjelmia, suurin osa C-kielell, mutta"
		" mukana on mys muutamia assembler-lhdekoodeja.\n\n"
		"Assemblerin include-tiedostot:\n"
		" Include-tiedostot, jotka tarvitset ohjelmoidessasi assemblerilla.\n\n"
		"Yleiset C include-tiedostot:\n"
		" Include-tiedostot, jotka tarvitset ohjelmoidessasi C-kielell.\n\n"
		"E moduletiedostot:\n"
		" Moduletiedostot, AmigaE-ohjelmointia varten.\n\n"
		"FD-tiedostot:\n"
		" Voidaan kytt 'lvo'-tykalun kanssa, tai jos teet"
		" laitteistoajurin C-kielell.\n\n"
		"Ylimriset ADE gcc include-tiedostot:\n"
		" Gcc:n erikoisinclude-tiedostot (inline, proto jne).\n\n"
		"Ylimriset SAS/C (ja DICE) include-tiedostot:\n"
		" SAS/C:n erikoisinclude-tiedostot (pragma, proto jne)."
		" Toimivat osin mys DCC:n kanssa.\n\n"
		"Ylimriset StormC include-tiedostot:\n"
		" StormC:n erikoisinclude-tiedostot (pragma, proto jne).\n\n"
	))


	(set #t_nodevs
		"Viitett Devs: ei lytynyt. Kokeile ylemp kyttjn tasoluokitusta.")
	(set #t_noc
		"Viitett C: ei lytynyt. Kokeile ylemp kttjn tasoluokitusta.")
	(set #t_noprefs
		"Hakemistoa Sys:Prefs ei lytynyt. Kokeile ylemp kyttjn tasoluokitusta.")
	(set #t_nol
		"Viitett L: ei lytynyt. Kokeile ylemp kyttjn tasoluokitusta.")
	(set #t_devspath	"Minne haluat asentaa jrjestelmtiedostot?")
	(set #t_devspathhelp	(cat
		" Valitsemaasi hakemistoon tulee olla viite Devs:."
		" Asennusohjelma kopioi ahi.device-tiedoston, laitteistoajurit"
		" ja audiotilojen kuvaustiedostot thn hakemistoon."
		" Ajureille ja audiotilatiedostoille luodaan alihakemistot.\n\n"
	))
	(set #t_cpath		"Minne haluat asentaa ohjelman 'AddAudioModes'?")
	(set #t_cpathhelp	(cat
		" AddAudioModes on pieni komentoriviohjelma, jonka avulla"
		" voit muokata audiotiloja sisltv tietokantaa"
		" (aivan kuten nytttilojen tietokanta).\n"
		" Komentoriviohjelmat sijaitsevat yleens hakemistossa C:.\n\n"
	))


	(set #t_localepath	"Minne haluat asentaa sanastot?")
	(set #t_localepathhelp	(cat
		" Valitsemaasi hakemistoon tulee olla viite Locale:."
		" Asennusohjelma kopioi valitsemasi sanastot tss"
		" hakemistossa oleviin alihakemistoihin.\n\n"
	))

	(set #t_prefspath	"Minne haluat asentaa asetusohjelman?")
	(set #t_prefspathhelp	(cat
		" Asetusohjelman avulla voit mritt AHI-nijrjestelmn"
		" asetukset. Voit valita haluamasi laitteiston, fyysiset"
		" ulostulot ja sisnmenot jne. Asetusohjelmat sijaitsevat"
		" normaalisti hakemistossa Sys:Prefs/.\n"
		" Tm ohjelma vaatii toimiakseen BGUI:n.\n\n"
	))

	(set #t_audiohelp	(cat
		" AUDIO-ksittelij kytetn kiinnitettess laitetta AUDIO:."
		" Kopioimalla tiedostoja tlle laitteelle tai tlt laitteelta"
		" voit toistaa ja tallentaa raakaa nitietoa, IFF-AIFF- tai"
		" IFF-AIFC-tiedostoja.\n\n"
	))

	(set #t_lpath		"Minne haluat asentaa AUDIO-ksittelijn?")
	(set #t_lpathhelp	(cat
		#t_audiohelp
		" Ksittelijt sijaitsevat yleens hakemistossa L:.\n\n"
	))

	(set #t_dosdevpath	"Minne haluat asentaa AUDIO-kiinnitystiedoston?")
	(set #t_dosdevpathhelp	(cat
		#t_audiohelp
		" Kiinnitystiedostot sijaitsevat yleens hakemistossa"
		" Devs:DOSDrivers, jos laitteet kiinnitetn kynnistyksen"
		" yhteydess. Muutoin kiinnitystiedostot sijaitsevat"
		" varmaankin hakemistossa SYS:Storage/DOSDrivers.\n\n"
	))

	(set #t_dosdriver	"Haluatko kiinnitt laitteen AUDIO: kynnistyksen yhteydess?")
	(set #t_dosdriverhelp	(cat
		" Jos haluat, laite AUDIO: voidaan kiinnitt kynnistyksen"
		" yhteydess. Tm poistaa tarpeen kiinnitt laite erikseen"
		" aina kun haluat kytt sit. Kiinnitys ei vie paljoakaan"
		" muistia, joten on suositeltavaa, ett valitset 'Kyll'.\n\n"
	))

	(set #t_userdocpath	"Minne haluat asentaa kyttjn ohjeet?")
	(set #t_userdocpathhelp	(cat
		" Ohjeet ovat AmigaGuide-tiedostona, jossa kuvataan"
		" AHI-nijrjestelm ja sen osia.\n\n"
	))

	(set #t_srcpath		(cat
		" Minne haluat asentaa esimerkkilhdekoodit?"
		" Valitsemaasi hakemistoon luodaan alihakemisto AHI."
	))
	(set #t_srcpathhelp	(cat
		" Esimerkkilhdekoodit, sek C- ett assembler-kieliset,"
		" tallennetaan alihakemistoon AHI. Kaikki entiset tiedostot"
		" hakemistossa AHI tuhotaan!\n\n"
	))
	(set #t_oldsrc		(cat
		" Siell on jo alihakemisto AHI."
		" Kaikki tiedostot alihakemistossa AHI poistetaan."
	))

	(set #t_devdocspath	" Minne haluat asentaa kehitysympristn ohjeet?")
	(set #t_devdocspathhelp	(cat
		" Asennusohjelma sijoittaa autodocit ja AHI-kehitysympristn"
		" ohjeet valitsemaasi hakemistoon.\n\n"
	))

	(set #t_aincpath	" Miss sijaitsevat assemblerisi include-tiedostot?")
	(set #t_aincpathhelp	(cat
		" Asennusohjelma sijoittaa assemblerin include-tiedostot"
		" valitsemasi hakemiston alihakemistoihin (lvo, devices ja"
		" libraries).\n\n"
	))

	(set #t_fdpath		" Miss sijaitsevat FD-tiedostosi?")
	(set #t_fdpathhelp	(cat
		" FD-tiedostot kuvaavat kirjaston tai laitteen toimintoja."
		" Niit voidaan kytt 'lvo'-ohjelman kanssa, ja niist"
		" voi olla hyty kirjoittaessasi laitteistoajureita.\n\n"
	))

	(set #t_cincpath	" Miss sijaitsevat C-kntjsi include-tiedostot?")
	(set #t_cincpathhelp	(cat
		" Asennusohjelma sijoittaa yleiset C-kntjn include-tiedostot"
		" valitsemasi hakemiston alihakemistoihin (clib, devices"
		" ja libraries).\n\n"
	))

	(set #t_emodpath	" Miss sijaitsevat E moduletiedostosi?")
	(set #t_emodpathhhelp	(cat
		" Asennusohjelma sijoittaa E moduletiedostot valitsemasi"
		" hakemiston alihakemistoihin (devices ja libraries).\n\n"
	))

	(set #t_adeincpath	" Minne haluat sijoittaa ADE gcc include-tiedostot?")
	(set #t_adeincpathhelp	(cat
		" Gcc tarvitsee muutamia ylimrisi tiedostoja"
		" tietkseen mit rekistereit voidaan kytt"
		" kutsuttaessa AHI-funktioita. Tm tieto on"
		" tiedostoissa, jotka kopioidaan alihakemistoihin"
		" inline, pragmas ja proto.\n\n"
	))

	(set #t_sasincpath	" Minne haluat sijoitta SAS/C (ja DICE) include-tiedostot?")
	(set #t_sasincpathhelp	(cat
		" SAS/C (ja DICE) tarvitsevat muutamia ylimrisi"
		" tiedostoja tietkseen mit rekistereit voidaan"
		" kytt kutsuttaessa AHI-funktioita. Tm tieto on"
		" tiedostoissa, jotka kopioidaan alihakemistoihin"
		" pragmas ja proto.\n\n"
	))

	(set #t_stormincpath	" Minne haluat sijoittaa StormC include-tiedostot?")
	(set #t_stormincpathhelp (cat
		" StormC tarvitsee muutamia ylimrisi tiedostoja"
		" tietkseen mit rekistereit voidaan kytt"
		" kutsuttaessa AHI-funktioita. Tm tieto on tiedostoissa,"
		" jotka kopioidaan alihakemistoihin pragma ja proto.\n\n"
	))

	(set #t_ahidevhelp	(cat
		" Ahi.device on AHI-nijrjestelmn sydn."
		" Tm on ainoa osa, joka nkyy muille ohjelmille.\n\n"
	))

	(set #t_runaddmodes	(cat
		" Ajan komennon AddAudioModes luodakseni"
		" audiotilatietokannan."
	))


	(set #t_overwritemode1
		" Audiotilakuvauksesta on jo olemassa kopio ")
	(set #t_overwritemode2 " tiedostossa ")
	(set #t_overwritemode3	(cat
		".\n\n"
		" Kirjoitetaanko plle?"
		" Kaikki audiotilaan tekemsi muutokset tulevat katoamaan!"
	))

))

(if (= @language "etina")
(	; Tranlated by Vit Sindlar <sindlarv@hotmail.com>

	(set #t_welcome		(cat
		" Vtejte pi instalaci AHI. AHI je pesmrovateln"
		" audio systm, kter je mono pouvat jak s vestavnm"
		" zvukovm ipem (Paula), tak i nkolika zvukovmi kartami."
		" Aktuln verze tohoto software je 4."
	))
	(set #t_oldinstaller	(cat
		" Vlastnte starou verzi programu Installer. Tento"
		" instalan skript pravdpodobn vyaduje verzi 43.3"
		" a vy. Instalace bude pokraovat, ale nelze zaruit,"
		" e ve bude fungovat, tak jak m.\n"
		" Opravdu si pejete pokraovat?"
	))
	(set #t_oldinstallerhelp (cat
		" Verze programu Installer, kter pouvte je pli"
          " star. Nejnovj verzi naleznete vdy na Internetu,"
		" nap. na Aminetu, v adresi util/misc. Nzev archvu"
		" je \"Installer-43_3.lha\":\n"
		" <URL:ftp://ftp.germany.aminet.org/pub/aminet/util/misc/Installer-43_3.lha"

	))
	(set #t_installaborted	"Instalace byla peruena.")

	(set #t_installing		"Probh instalace ")
	(set #t_installingdocs	"Instaluje se dokumentace pro vvoje")
	(set #t_installingincs	"Instaluj se includes")
	(set #t_installingsrc	"Instaluj se pklady zdrojovch kd")
	(set #t_nofiles		"Soubory pro instalaci chyb.")

	(set #t_nohelp		"Pro tuto poloku nen dostupn npovda.")

	(set #t_parts		"Kter sti AHI si pejete nainstalovat?")
	(set #t_system		"Systmov soubory")
	(set #t_prefs		"Program pro nastaven")
	(set #t_audio		"AUDIO handler");
	(set #t_userdoc		"Uivatelsk dokumentace")
	(set #t_a-developer	"Soubory pro vvoje program")
	(set #t_d-developer	"Soubory pro vvoje ovlada")
	(set #t_userhelp	(cat
		"Systmov soubory:\n"
		" Systmov soubory - to je vlastn jdro celho AHI a mus"
		" bt vdy nainstalovny. Jsou nutn pro sprvnou funkci"
		" vech ostatnch komponent.\n\n"
		"Program pro nastaven:\n"
		" Program pro nastaven - je pouvn pro pohodln nastaven"
		" mnoha voleb AHI. Tato st AHI vyaduje ke sv innosti"
		" nainstalovanou knihovnu BGUI.library.\n\n"
		"AUDIO handler:\n"
		" Umouje pehrvat a zaznamenvat samply velice jednodue"
		" pomoc pkazu 'copy'.\n\n"
		"Uivatelsk dokumentace:\n"
		" Dokumentace napsan ve standardnm formtu AmigaGuide,"
		" kter popisuje AHI a ostatn sti systmu.\n\n"
	))
	(set #t_devhelp		(cat
		"Soubory pro vvoje program:\n"
		" Autodocs, includes, pkladov zdrojov kdy atd."
		" Je nutn nainstalovat pouze v ppad, e budete vyvjet"
		" svj vlastn program s podporou AHI.\n\n"
		"Soubory pro vvoje ovlada:\n"
		" Autodocs, pkladov zdrojov kd atd. Je nutn pouze"
		" v ppad, e budete vyvjet ovladae pro zvukov karty.\n\n"
	))

	(set #t_gui		(cat
		" Kterou z verz program pro nastaven byste si pli"
		" nainstalovat?"
	))
	(set #t_guihelp		(cat
		" Zvolte typ GUI, ktermu dvte pednost, prosm.\n\n"
	))
	(set #t_guibgui		"Verze v BGUI")
	(set #t_guimui		"Verze v MUI")

	(set #t_icon 		"Kter ikony si pejete nainstalovat?")
	(set #t_iconstd		"Standardn 4-barevn")
	(set #t_iconmwb		"8-barevn typu MagicWB")
	(set #t_iconhelp	(cat
		" Zde si zvolte druh ikony, kterou si pejete pouvat pro"
		" program pro nastaven. Autorem ikony typu MagicWB je Erol Ismael.\n\n"
	))

	(set #t_languages	(cat
		"Kter z jazyk si pejete nainstalovat?"
		" Standardn je anglitina."))
	(set #t_languageshelp	(cat
		" Jestlie chyb zrovna peklad do Vaeho jazyka, autor AHI"
		" by Vs velmi rd podal o peklad. Upravte a pelote"
		" soubory User/Catalogs/NewCatalog.ct a User/Catalogs/NewPrefsCatalog.ct"
		" a polete je na tuto adresu:\n"
		" lcs@lysator.liu.se\n\n"
		" Je dobr se nejdve zeptat autora, zda ji nkdo peklad"
		" do Vaeho jazyka nedl.\n\n"

	))

	(set #t_drivers		(cat
		"Kter z ovlada AHI si pejete nainstalovat?"
		" Je lep si nainstalovat pouze ovladae, kter skuten potebujete."))
	(set #t_drivershelp	(cat
		"Concierto:\n"
		" Zvukov karta Concierto.\n\n"
		"Delfina:\n"
		" Zvukov karta Delfina s DSP.\n\n"
		"Filesave:\n"
		" Umon ten/zpis sampl do souboru.\n\n"
		"Maestro Pro:\n"
		" Zvukov karta Maestro Pro.\n\n"
		"Melody MPEG:\n"
		" Zvukov karta Melody MPEG.\n\n"
		"Paula:\n"
		" Standardn zvukov ip Amigy.\n\n"
		"Prelude:\n"
		" Zvukov karta Prelude.\n\n"
		"Toccata:\n"
		" Zvukov karta Toccata.\n\n"
		"Wavetools:\n"
		" Zvukov karta Wavetools.\n\n"
	))

	(set #t_CPUver		"Pro jak procesor si pejete nainstalovat programy?")
	(set #t_CPUverhelp		(cat
		" Programy optimalizovan pro 68020 a vy jsou mnohem"
		" rychlej a asto tak men ne verze pro obyejnou 68000."
		" Navc, v ppad AHI, maj verze pro 68000 mn funkc"
		" a pracuj s omezenou kvalitou zvuku. Skuten Vm doporuuji"
		" zvolit pi instalaci verze program optimalizovan pro 68020.\n"
		" Verze pro 68060 neprovd pomal 64-bitov dlen. Pokud tedy"
		" tento procesor nevlastnte, neinstalujte ji!\n\n"
	))

	(set #t_devfiles	"Kter ze soubor pro vvoje si pejete nainstalovat?")
	(set #t_devdocs	"Autodocs a dokumentaci pro vvoje k AHI")
	(set #t_source		"Pkladov zdrojov kdy")
	(set #t_asm		"Includes pro assembler")
	(set #t_cgen		"Includes pro obecn C")
	(set #t_e			"Moduly pro E")
	(set #t_fd		"Soubory FD")
	(set #t_ade		"Dodatkov includes pro ADE gcc")
	(set #t_sas		"Dodatkov includes pro SAS/C (a DICE)")
	(set #t_storm		"Dodatkov includes pro StormC")
	(set #t_devfileshelp	(cat
		"Autodocs a dokumentaci pro vvoje k AHI:\n"
		" Autodocs a pravidla pro programovn AHI.\n\n"
		"Pkladov zdrojov kdy:\n"
		" Nkolik pkladovch program, nejastji jsou napsny v C,"
		" ale je tam i nkolik kousk v assembleru.\n\n"
		"Includes pro assembler:\n"
		" Includes, kter jsou teba pro programovn v assembleru.\n\n"
		"Includes pro obecn C:\n"
		" Includes, kter jsou teba pro programovn v C.\n\n"
		"Moduly pro E:\n"
		" Moduly, kter jsou nutn pro AmigaE.\n\n"
		"Soubory FD:\n"
		" Pro pouit s programem 'lvo', nebo v ppad, e budete"
		" pst ovlada pro zvukovou kartu v C.\n\n"
		"Dodatkov includes pro ADE gcc:\n"
		" Speciln includes pro gcc (inline, proto atd).\n\n"
		"Dodatkov includes pro SAS/C (a DICE):\n"
		" Speciln includes pro SAS/C (pragmas, proto atd)."
		" Budou fungovat tak s DCC, ale bez voln tag.\n\n"
		"Dodatkov includes pro StormC:\n"
		" Speciln includes pro StormC (pragmas, proto atd).\n\n"
	))


	(set #t_nodevs			(cat
		"Nelze nalzt piazen Devs:. Pouijte vy md instalace"
		" (pro zkuenj uivatele)."
	))
	(set #t_noc			(cat
		"Nelze nalzt piazen C:. Pouijte vy md instalace"
		" (pro zkuenj uivatele)."
	))
	(set #t_noprefs		(cat
		"Nelze nalzt adres Sys:Prefs. Pouijte vy md instalace"
		" (pro zkuenj uivatele)."
	))
	(set #t_nol			(cat
		"Nelze nalzt piazen L:. Pouijte vy md instalace"
		" (pro zkuenj uivatele)."
	))
	(set #t_devspath	"Kam si pejete nainstalovat systmov soubory?")
	(set #t_devspathhelp	(cat
		" Adres, kter zvolte mus bt soust piazen Devs:."
		" Pi instalaci se tam nakopruje ahi.device, ovladae pro"
		" hardware a soubory pro jednotliv audio mdy."
		" Pro ovladae a soubory s jednotlivmi audio mdy budou"
		" vytvoeny podadrese.\n\n"
	))
	(set #t_cpath		"Kam si pejete nainstalovat AddAudioModes?")
	(set #t_cpathhelp		(cat
		" AddAudioModes je pkaz, kter slou ke sprv databze"
		" audio md (podobnost s databz rozliovacch md je"
		" ist nhodn :-). Pkaz by ml bt normln umstn"
		" v piazen C:.\n\n"
	))


	(set #t_localepath	"Kam si pejete nainstalovat lokalizan katalogy?")
	(set #t_localepathhelp	(cat
		" Adres, kter zvolte mus bt soust piazen Locale:."
		" Pi instalaci se tam nakopruj lokalizan katalogy, kter"
		" jste si vybrali. Pochopiteln budou jednotliv katalogy"
		" nakoprovny do pslunch adres s danm jazykem.\n\n"
	))

	(set #t_prefspath	"Kam si pejete nainstalovat program pro nastaven?")
	(set #t_prefspathhelp	(cat
		" Program pro nastaven Vm umon nakonfigurovat AHI pesn"
		" dle monost potae. Je zde mono nastavit, kterou z st"
		" zvukovho hardware si pejete pouvat, jak vstupy a vstupy"
		" atd. Programy pro nastaven se obvykle nachz v adresi"
		" SYS:Prefs/.\n"
		" Tento program vyaduje balk BGUI nebo MUI, co zle na"
		" volb verze programu pro nastaven.\n\n"
	))

	(set #t_audiohelp		(cat
		" AUDIO handler se pouv k pipojen zazen AUDIO:. Pouhm"
		" koprovnm soubor z a do tohoto zazen je mono pehrvat"
		" a zaznamenvat soubory v RAW, IFF-AIFF nebo IFF-AIFC.\n\n"
	))

	(set #t_lpath		"Kam si pejete nainstalovat AUDIO handler?")
	(set #t_lpathhelp		(cat
		#t_audiohelp
		" Handlery jsou obvykle umstny v piazen L:.\n\n"
	))

	(set #t_dosdevpath	"Kam si pejete nainstalovat pipojovac soubor AUDIO (mount)?")
	(set #t_dosdevpathhelp	(cat
		#t_audiohelp
		" Pipojovac soubory (mount) jsou obvykle umstny v adresi"
		" Devs:DOSDrivers, v ppad, e si je pejete pipojovat hned"
		" po startu. Pokud si to nepejete pak by mly bt pesunuty"
		" do adrese SYS:Storage/DOSDrivers.\n\n"
	))

	(set #t_dosdriver	"Pejete si mt aktivovn AUDIO handler ihned startu?")
	(set #t_dosdriverhelp	(cat
		" V ppad, e si to pejete, je mono nainstalovat AHI tak,"
		" e zazen AUDIO: bude aktivn ihned po startu. Tento zpsob"
		" et as, kter jinak muste vynaloit na proklikn se do"
		" SYS:Storage/DOSDrivers, a nevyaduje mnoho pamti. Z tohoto"
		" dvodu se doporuuje odpovdt 'Ano'.\n\n"
	))

	(set #t_userdocpath	"Kam si pejete nainstalovat uivatelskou dokumentaci?")
	(set #t_userdocpathhelp	(cat
		" Toto je soubor v formtu AmigaGuide, kter popisuje vlastnosti"
		" audio systmu AHI.\n\n"
	))

	(set #t_srcpath		(cat
		" Kam si pejete nainstalovat pkladov zdrojov kdy?"
		" Na tomto mst bude vytvoen adres s nzvem AHI."
	))
	(set #t_srcpathhelp		(cat
		" Pkladov zdrojov kdy (v jazyce C i assembleru) budou"
		" uloeny v podadresi nazvanm AHI. Jakkoliv soubory, kter"
		" jsou aktuln uloeny v adresi AHI, budou smazny!\n\n"
	))
	(set #t_oldsrc			(cat
		" Na tomto mst ji adres AHI existuje."
		" Vechny soubory v nm budou smazny."
	))

	(set #t_devdocspath	" Kam si pejete nainstalovat dokumentaci pro vvoje?")
	(set #t_devdocspathhelp	(cat
		" Autodocs a dokumentace pro vvoje budou uloeny"
		" do adrese, kter si zvolte.\n\n"
	))

	(set #t_aincpath	" Kde mte uloen sv includes pro assembler?")
	(set #t_aincpathhelp	(cat
		" Includes pro assembler budou uloeny do svch podadres"
		" (lvo, devices a libraries) na disku, kter si zvolte.\n\n"
	))

	(set #t_fdpath		" Kam si pejete uloit soubory FD?")
	(set #t_fdpathhelp		(cat
		" FD jsou soubory popisujc funkce knihoven a zazen"
		" Pouvaj se s programem 'lvo' a jsou tak uiten"
		" pi vytven ovlada pro hardware.\n\n"
	))

	(set #t_cincpath	" Kde mte uloen sv includes pro C?")
	(set #t_cincpathhelp	(cat
		" Includes pro obecn C budou uloeny do svch"
		" podadres (clib, devices a libraries) na disku, kter"
		" si zvolte.\n\n"
	))

	(set #t_emodpath	" Kde mte uloen sv moduly pro E?")
	(set #t_emodpathhhelp	(cat
		" Moduly pro E budou uloeny do svho adrese a jeho"
		" podadres (devices a libraries) na disku, kter si"
		" zvolte.\n\n"
	))

	(set #t_adeincpath	" Kam si pejete uloit includes pro ADE gcc?")
	(set #t_adeincpathhelp	(cat
		" gcc potebuje extra soubory k tomu, aby si zjistil, kter"
		" registry vyuvat pi voln funkc AHI. Tato informace"
		" je obsaena v souborech, kter budou koprovny do adres"
		" inline, pragmas a proto.\n\n"
	))

	(set #t_sasincpath	" Kam si pejete uloit includes pro SAS/C (a DICE)?")
	(set #t_sasincpathhelp	(cat
		" SAS/C (a DICE) potebuje extra soubory k tomu, aby si zjistil,"
		" kter registry vyuvat pi voln funkc AHI. Tato informace"
		" je obsaena v souborech, kter budou koprovny do adres"
		" inline, pragmas a proto.\n\n"
	))

	(set #t_stormincpath	" Kam si pejete uloit includes pro StormC?")
	(set #t_stormincpathhelp (cat
		" StormC potebuje extra soubory k tomu, aby si zjistil, kter"
		" registry vyuvat pi voln funkc AHI. Tato informace"
		" je obsaena v souborech, kter budou koprovny do adres"
		" inline, pragmas a proto.\n\n"
	))

	(set #t_ahidevhelp		(cat
		" ahi.device je jdrem celho audio"
		" systmu AHI. Toto je jedin st tohoto"
		" systmu, o kter 'v' ostatn programy.\n\n"
	))

	(set #t_runaddmodes		(cat
		" Bude sputn pkaz AddAudioModes k tomu,"
		" aby se obnovila databze audio md."
	))


	(set #t_overwritemode1
		" V tomto adresi ji soubor s popisem audio mdu existuje ")
	(set #t_overwritemode2 " v ")
	(set #t_overwritemode3	(cat
		".\n\n"
		" Skuten si to pejete pepsat?"
		" Veker zmnn nastaven budou ztracena!"
	))
))

;(if (= @language "svenska")
;(	; Translated by Your Name <your@email.adr>
;))


;**
;** Procedures
;**

(procedure P_INSTDRIVER #pi_audioname #pi_modename
(
	(set #pi_drvpath (tackon #devspath "AHI/"))
	(set #pi_modepath (tackon #devspath "AudioModes/"))
	(if (not (exists #pi_drvpath))
		(makedir #pi_drvpath)
	)
	(if (not (exists #pi_modepath))
		(makedir #pi_modepath)
	)

	(if (exists (tackon "User/Devs/AHI" (cat #pi_audioname #ver68k)))
	(
		(set #pi_audionamesrc (cat #pi_audioname #ver68k))
	)
	(
		(set #pi_audionamesrc #pi_audioname)
	))

	(copylib
		(help (cat #t_drivershelp @copylib-help))
		(prompt (cat #t_installing #pi_drvpath #pi_audionamesrc))
		(source (tackon "User/Devs/AHI" #pi_audionamesrc))
		(dest #pi_drvpath)
		(newname #pi_audioname)
		(confirm)
	)

	(set #pt_copymode 0)
	(if (exists (tackon #pi_modepath #pi_modename))
	(if (exists (tackon #pi_modepath #pi_modename))
	(
;		(if (askbool
;			(prompt	(cat #t_overwritemode1
;				#pi_modename
;				#t_overwritemode2
;				#pi_drvpath
;				#t_overwritemode3
;			))
;			(default 1)
;			(help #t_drivershelp)
;		)
;		(
			(set #pt_copymode 1)
;		))
	))
	( ; else (exists)
		(set #pt_copymode 1)
	))
	(if (= #pt_copymode 1)
	(
		(copyfiles 
			(prompt (cat #t_installing #pi_modepath #pi_modename))
			(source (tackon "User/Devs/AudioModes" #pi_modename))
			(dest #pi_modepath)
		)
	))
))

(procedure P_INSTCATALOG #pi_language
(
	(set #pi_dest (tackon (tackon #localepath "Catalogs") #pi_language))
	(copyfiles 
		(prompt (cat #t_installing (tackon #pi_dest #pi_language)))
		(source (tackon "User/Catalogs" #pi_language))
		(dest #pi_dest)
		(all)
	)
))

;** 
;** Main installation procedure starts here...
;**

(set	#system		1	;System files
	#prefs		2	;Preferences program
	#audio		4	;The AHI handler
	#userdoc	8	;User documentation
	#a-developer	16	;App. programmers developer files
	#d-developer	32	;Drv. programmers developer files
)
(set	#concierto	1	;Sound card drivers
	#delfina	2
	#filesave	4
	#maestropro	8
	#melody		16
	#paula		32
	#prelude	64
	#toccata	128
	#wavetools	256
)

(set	#devdocs	1	;Autodocs and programming guidelines
	#source		2	;Example source code
	#asm		4	;Assembler include files
	#cgen		8	;Generic C include files
	#e		16	;E module files
	#fd		32	;FD-files
	#ade		64	;ADE gcc include files
	#sas		128	;SAS/C include files
	#storm		256	;StormC include files
)

;**
;** Make sure we're using a recent version of the installer
;**

(if (< @installer-version (+ (* 43 65536) 3))
(
	(if (not (askbool
		(prompt #t_oldinstaller)
		(help #t_oldinstallerhelp)
	))
	(
		(abort (cat #t_installaborted "\n\n" #t_oldinstallerhelp))
	))
))

;**
;** Welcome!
;**

(welcome #t_welcome)

;**
;** Find out which parts should be installed
;**

(set #default 0 #helptext "")
(set #parts 0)

(if (exists "User")
(
	(set #helptext (cat #helptext #t_userhelp))
	(set #default (bitor #default #system #prefs #audio #userdoc))
)
( ; else
	(set #t_system "")
	(set #t_prefs "")
	(set #t_audio "")
	(set #t_userdoc "")

))

(if (exists "Developer")
(
	(set #helptext (cat #helptext #t_devhelp))
	(set #default (bitor #default #a-developer #d-developer))
)
( ; else
	(set #t_a-developer "")
	(set #t_d-developer "")
))

(if (= #default 0)
	(abort #t_nofiles)
)

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

;**
;**  Ask which parts should be installed
;**

(if (= @user-level 0)
(
	(set #parts #default)
)
( ; Average or Expert
	(set #parts (askoptions
		(prompt #t_parts)
		(help (cat #helptext @askoptions-help))
		(choices #t_system #t_prefs #t_audio #t_userdoc #t_a-developer #t_d-developer)
		(default #default)
	))
))

;**
;**  Which GUI system?
;**

(set	#gui_bgui	0	;Use BGUI
	#gui_mui	1	;Use MUI
)

(set #gui #gui_bgui)

(if (bitand #parts #prefs)
	(set #gui (askchoice
		(prompt #t_gui)
		(help (cat #t_guihelp @askchoice-help))
		(choices #t_guibgui #t_guimui)
		(default #gui))
	)
)	

(if (= #gui #gui_bgui)
	(set #prefssrc "AHI_BGUI")
)
(if (= #gui #gui_mui)
	(set #prefssrc "AHI_MUI")
)


;**
;**  Which icon?
;**

(set	#icon_std	0
	#icon_mwb	1
)

(set #icon #icon_std)

(if (<> (getenv "MagicWB") "")
	(set #icon #icon_mwb)
)

(if (bitand #parts (bitor #prefs #audio))
	(set #icon (askchoice
		(prompt #t_icon)
		(help (cat #t_iconhelp @askchoice-help))
		(choices #t_iconstd #t_iconmwb)
		(default #icon))
	)
)	


;**
;**  Activate the AUDIO handler at boot time?
;**

(set #dosdevpath	"Devs:DOSDrivers")

(if (and (bitand #parts #audio) (>= @user-level 1))
	(if (not (askbool
		(prompt #t_dosdriver)
		(help (cat #t_dosdriverhelp @askbool-help))
		(default 1)))
	(
		(set #dosdevpath "SYS:Storage/DOSDrivers")
	))
)

;**
;**  Ask which languages should be installed
;**

(set	#dansk		1
	#deutsch	2
	#espaol	4
	#franais	8
	#greek		16
	#hrvatski	32
	#slenska	64
	#italiano	128
	#nederlands	256
	#norsk		512
	#polski		1024
	#portugus	2048
	#srpski		4096
	#suomi		8192
	#svenska	16384
	#etina	32768

)

(set	#t_dansk	"Dansk"
	#t_deutsch	"Deutsch"
	#t_espaol	"Espaol"
	#t_franais	"Franais"
	#t_greek	"Greek"
	#t_hrvatski	"Hrvatski"
	#t_slenska	"slenska"
	#t_italiano	"Italiano"
	#t_nederlands	"Nederlands"
	#t_norsk	"Norsk"
	#t_polski	"Polski"
	#t_portugus	"Portugus"
	#t_srpski	"Srpski"
	#t_suomi	"Suomi"
	#t_svenska	"Svenska"
	#t_etina	"etina"
)


(set	#default 0)

(if (not (exists "User/Catalogs/dansk"))	(set #t_dansk ""))
(if (not (exists "User/Catalogs/deutsch"))	(set #t_deutsch ""))
(if (not (exists "User/Catalogs/espaol"))	(set #t_espaol ""))
(if (not (exists "User/Catalogs/franais"))	(set #t_franais ""))
(if (not (exists "User/Catalogs/greek"))	(set #t_greek ""))
(if (not (exists "User/Catalogs/hrvatski"))	(set #t_hrvatski ""))
(if (not (exists "User/Catalogs/slenska"))	(set #t_slenska ""))
(if (not (exists "User/Catalogs/italiano"))	(set #t_italiano ""))
(if (not (exists "User/Catalogs/nederlands"))	(set #t_nederlands ""))
(if (not (exists "User/Catalogs/norsk"))	(set #t_norsk ""))
(if (not (exists "User/Catalogs/polski"))	(set #t_polski ""))
(if (not (exists "User/Catalogs/portugus"))	(set #t_portugus ""))
(if (not (exists "User/Catalogs/srpski"))	(set #t_srpski ""))
(if (not (exists "User/Catalogs/suomi"))	(set #t_suomi ""))
(if (not (exists "User/Catalogs/svenska"))	(set #t_svenska ""))
(if (not (exists "User/Catalogs/etina"))	(set #t_etina ""))

(if (and (exists "LOCALE:Languages/dansk.language" (noreq)) (not (= #t_dansk "")))
	(set #default (bitor #default #dansk))
)
(if (and (exists "LOCALE:Languages/deutsch.language" (noreq)) (not (= #t_deutsch "")))
	(set #default (bitor #default #deutsch))
)
(if (and (exists "LOCALE:Languages/espaol.language" (noreq)) (not (= #t_espaol "")))
	(set #default (bitor #default #espaol))
)
(if (and (exists "LOCALE:Languages/franais.language" (noreq)) (not (= #t_franais "")))
	(set #default (bitor #default #franais))
)
(if (and (exists "LOCALE:Languages/greek.language" (noreq)) (not (= #t_greek "")))
	(set #default (bitor #default #greek))
)
(if (and (exists "LOCALE:Languages/hrvatski.language" (noreq)) (not (= #t_hrvatski "")))
	(set #default (bitor #default #hrvatski))
)
(if (and (exists "LOCALE:Languages/slenska.language" (noreq)) (not (= #t_slenska "")))
	(set #default (bitor #default #slenska))
)
(if (and (exists "LOCALE:Languages/italiano.language" (noreq)) (not (= #t_italiano "")))
	(set #default (bitor #default #italiano))
)
(if (and (exists "LOCALE:Languages/nederlands.language" (noreq)) (not (= #t_nederlands "")))
	(set #default (bitor #default #nederlands))
)
(if (and (exists "LOCALE:Languages/norsk.language" (noreq)) (not (= #t_norsk "")))
	(set #default (bitor #default #norsk))
)
(if (and (exists "LOCALE:Languages/polski.language" (noreq)) (not (= #t_polski "")))
	(set #default (bitor #default #polski))
)
(if (and (exists "LOCALE:Languages/portugus.language" (noreq)) (not (= #t_portugues "")))
	(set #default (bitor #default #portugues))
)
(if (and (exists "LOCALE:Languages/srpski.language" (noreq)) (not (= #t_srpski "")))
	(set #default (bitor #default #srpski))
)
(if (and (exists "LOCALE:Languages/suomi.language" (noreq)) (not (= #t_suomi "")))
	(set #default (bitor #default #suomi))
)
(if (and (exists "LOCALE:Languages/svenska.language" (noreq)) (not (= #t_svenska "")))
	(set #default (bitor #default #svenska))
)
(if (and (exists "LOCALE:Languages/etina.language" (noreq)) (not (= #t_etina "")))
	(set #default (bitor #default #etina))
)

(if (bitand #parts (bitor #system #prefs))
	(if (= @user-level 0)
	(
		(set #languages #default)
	)
	( ; Average or Expert
		(set #languages (askoptions
			(prompt #t_languages)
			(help (cat #t_languageshelp @askoptions-help))
			(choices #t_dansk #t_deutsch  #t_espaol #t_franais
			         #t_greek #t_hrvatski #t_slenska #t_italiano #t_nederlands
			         #t_norsk #t_polski #t_portugus #t_srpski
			         #t_suomi #t_svenska #t_etina)
			(default #default)
		))
	))
)


;**
;** Find out which drivers should be installed (if any)
;**

(set	#default #filesave)
(set	#drivers 0)

(if (exists "Libs:concierto.library" (noreq))
	(set #default (bitor #default #concierto))
)
(if (exists "Libs:delfina.library" (noreq))
	(set #default (bitor #default #delfina))
)
(if (<> (database "graphics-mem") 0)			; Test for not Draco...
	(set #default (bitor #default #paula))
)
(if (exists "Libs:maestix.library" (noreq))
	(set #default (bitor #default #maestropro))
)
(if (exists "Libs:prelude.library" (noreq))
	(set #default (bitor #default #prelude))
)

(if (exists "Libs:toccata.library" (noreq))
	; Don't set if emulation library found!
	(if (< (bitand (getversion "Libs:toccata.library") 65535) 1000)
		(set #default (bitor #default #toccata))
	)
)
(if (exists "Devs:dad_audio.device" (noreq)) 
	(set #default (bitor #default #wavetools))
)

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

(if (bitand #parts #system)
	(if (= @user-level 0)
	(
		(set #drivers #default)
	)
	( ; Average or Expert
		(set #drivers (askoptions
			(prompt #t_drivers)
			(help (cat #t_drivershelp @askoptions-help))
			(choices "Concierto" "Delfina" "Filesave" "Maestro Pro" "Melody MPEG" "Paula" "Prelude" "Toccata" "Wavetools")
			(default #default)
		))
	))
)

;**
;**  Install 020-versions of the binaries?
;**

(set #ver68k	"")
(set #default	1)

(if (patmatch "68000|68010" (database "cpu"))
(
	(set #default 0)
))

(if (patmatch "68060" (database "cpu"))
(
	(set #default 2)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

(if (and (bitand #parts #system) (>= @user-level 1))
	(set #default (askchoice
		(prompt #t_CPUver)
		(help (cat #t_CPUverhelp @askbool-help))
		(choices "68000" "68020-68040" "68060")
		(default #default)))
)

(if (= #default 0)
(
	(set #ver68k ".000")
))
(if (= #default 2)
(
	(set #ver68k ".060")
))


;**
;** Find out which developer files should be installed
;**

(set	#default (bitor #devdocs #source #asm #cgen #fd))
(set	#devfiles 0)

(if (exists "ADE:" (noreq))
	(set #default (bitor #default #ade))
)

(if (exists "SC:" (noreq))
	(set #default (bitor #default #sas))
)

(if (exists "STORMC:" (noreq))
	(set #default (bitor #default #storm))
)

(if (exists "EMODULES:" (noreq))
	(set #default (bitor #default #e))
)

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

(if (bitand #parts (bitor #a-developer #d-developer))
(
	(if (= @user-level 0)
	(
		(set #devfiles #default)
	)
	( ; Average or Expert
		(set #devfiles (askoptions
			(prompt #t_devfiles)
			(help (cat #t_devfileshelp @askoptions-help))
			(choices #t_devdocs #t_source #t_asm #t_cgen #t_e #t_fd #t_ade #t_sas #t_storm )
			(default #default)
		))
	))
))

;**
;** Find out where the files should be installed
;**

(set #devspath		"Devs:")
(set #cpath		"C:")
(set #prefspath		"SYS:Prefs/")
(set #lpath		"L:")
(set #localepath	"Locale:")

(set #incpath		@default-dest)
(set #adeincpath	"ADE:include/")
(set #sasincpath	"Include:")
(set #stormincpath	"StormC:Include")
(set #fdpath		"FD:")
(set #emodpath		"EMODULES:")

(if (exists #devspath (noreq)) (set #devspath (expandpath #devspath)))
(if (exists #cpath (noreq)) (set #cpath (expandpath #cpath)))
(if (exists #prefspath (noreq)) (set #prefspath (expandpath #prefspath)))
(if (exists #lpath (noreq)) (set #lpath (expandpath #lpath)))
(if (exists #localepath (noreq)) (set #localepath (expandpath #localepath)))

(if (not (exists "Help:" (noreq)))
(
	(if (bitand #parts #prefs)
		(set #userdocpath #prefspath)
		(set #userdocpath @default-dest)
	)
)
(
	(if (>= #osversion 38)
	(
		(set #userdocpath "Help:")
	))
))

(if (bitand #devfiles #ade)
(
	(set #incpath "ADE:os-include/")
))
(if (exists "Include:" (noreq))
(
	(set #incpath "Include:")
))

(if (= @user-level 0)
(
	(if (and (bitand #parts #system) (not (exists #devspath (noreq))))
	(
		(abort #t_nodevs)
	))
	(if (and (bitand #parts #system) (not (exists #cpath (noreq))))
	(
		(abort #t_noc)
	))
	(if (and (bitand #parts #prefs) (not (exists #prefspath (noreq))))
		(
		(abort #t_noprefs)
	))
	(if (and (bitand #parts #audio) (not (exists #lpath (noreq))))
	(
		(abort #t_nol)
	))

	(set #srcpath (tackon @default-dest "AHI/"))
	(if (exists #srcpath)
	(
		(delete #srcpath
			(all)
			(optional "force")
		)
	))

	(set #devdocspath (tackon #srcpath "docs/"))
	(if (= 	#userdocpath @default-dest)
	(
		(set #userdocpath #devdocspath)
	))
	(if (= #incpath @default-dest)
	(
		(set #incpath (tackon #srcpath "include/"))
	))
	(set #aincpath #incpath)
	(set #cincpath #incpath)
	(if (not (exists #sasincpath (noreq)))
	(
		(set #sasincpath #cincpath)
	))
	(if (not (exists #stormincpath (noreq)))
	(
		(set #stormincpath #cincpath)
	))
	(if (not (exists #fdpath (noreq)))
	(
		(set #fdpath (tackon #incpath "fd/"))
	))
	(if (not (exists #emodpath (noreq)))
	(
		(set #emodpath #cincpath)
	))

	(makedir #srcpath (infos))
	(set @default-dest #srcpath)

; Match the number of completes in the 'else' section...
	(complete (/ #complete 10)) (set #complete (+ #complete (* 15 #completeadd)))

)
( ; Average or Expert

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #system)
	         (or (not (exists #devspath (noreq))) (= @user-level 2) ))
	(
		(set #devspath (askdir 
			(prompt #t_devspath)
			(help (cat #t_devspathhelp @askdir-help))
			(default #devspath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #system)
	         (or (not (exists #cpath (noreq))) (= @user-level 2) ))
	(
		(set #cpath (askdir 
			(prompt #t_cpath)
			(help (cat #t_cpathhelp @askdir-help))
			(default #cpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (<> #languages 0)
	         (or (not (exists #localepath (noreq))) (= @user-level 2) ))
	(
		(set #localepath (askdir 
			(prompt #t_localepath)
			(help (cat #t_localepathhelp @askdir-help))
			(default #localepath)
		))
	))



	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #prefs)
	         (or (not (exists #prefspath (noreq))) (= @user-level 2) ))
	(
		(set #prefspath (askdir 
			(prompt #t_prefspath)
			(help (cat #t_prefspathhelp @askdir-help))
			(default #prefspath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #audio)
	         (or (not (exists #lpath (noreq))) (= @user-level 2) ))
	(
		(set #lpath (askdir 
			(prompt #t_lpath)
			(help (cat #t_lpathhelp @askdir-help))
			(default #lpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #audio)
	         (or (not (exists #dosdevpath (noreq))) (= @user-level 2) ))
	(
		(set #dosdevpath (askdir 
			(prompt #t_dosdevpath)
			(help (cat #t_dosdevpathhelp @askdir-help))
			(default #dosdevpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (and (bitand #parts #userdoc)
	         (or (= #userdocpath @default-dest) (= @user-level 2) ))
	(
		(set #userdocpath (askdir 
			(prompt #t_userdocpath)
			(help (cat #t_userdocpathhelp @askdir-help))
			(default #userdocpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #source)
	(
		(set #srcpath (askdir 
			(prompt #t_srcpath)
			(help (cat #t_srcpathhelp @askdir-help))
			(default @default-dest)
		))
		(set #srcpath (tackon #srcpath "AHI/"))
		(if (exists #srcpath)
		(
			(delete #srcpath
				(all)
				(confirm average)
				(optional "force")
				(prompt #t_oldsrc)
				(help #t_nohelp)
			)
		))
		(makedir #srcpath (infos))
		(set @default-dest #srcpath)
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #devdocs)
	(
		(set #devdocspath (askdir 
			(prompt #t_devdocspath)
			(help (cat #t_devdocspathhelp @askdir-help))
			(default (tackon @default-dest "docs/"))
			(newpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #asm)
	(
		(set #aincpath (askdir 
			(prompt #t_aincpath)
			(help (cat #t_aincpathhelp @askdir-help))
			(default #incpath)
		))

	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #fd)
	(
		(if (not (exists #fdpath (noreq)))
		(
			(set #fdpath (tackon #incpath "fd/"))
		))
		(set #fdpath (askdir 
			(prompt #t_fdpath)
			(help (cat #t_fdpathhelp @askdir-help))
			(default #fdpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #cgen)
	(
		(set #cincpath (askdir 
			(prompt #t_cincpath)
			(help (cat #t_cincpathhelp @askdir-help))
			(default #incpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #e)
	(
		(set #emodpath (askdir 
			(prompt #t_emodpath)
			(help (cat #t_emodpathhelp @askdir-help))
			(default #emodpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #ade)
	(
		(set #adeincpath (askdir 
			(prompt #t_adeincpath)
			(help (cat #t_adeincpathhelp @askdir-help))
			(default #adeincpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #sas)
	(
		(set #sasincpath (askdir 
			(prompt #t_sasincpath)
			(help (cat #t_sasincpathhelp @askdir-help))
			(default #sasincpath)
		))
	))

	(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))

	(if (bitand #devfiles #storm)
	(
		(set #stormincpath (askdir 
			(prompt #t_stormincpath)
			(help (cat #t_stormincpathhelp @askdir-help))
			(default #stormincpath)
		))
	))
))


;******************************************************************************
;**** Install *****************************************************************
;******************************************************************************


;**
;** Install the prefs program
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #parts #prefs)
(

; No version checking, so user can change gui version

	(copyfiles
		(help (cat #t_prefspathhelp @copylib-help))
		(prompt #t_installing "AHI")
		(source (tackon "User/Prefs" #prefssrc))
		(dest #prefspath)
		(newname "AHI")
		(confirm)
	)
	(protect (tackon #prefspath "AHI") "+e")


	(if (= #icon #icon_std)
		(set #iconsrc "AHI.info")
	)
	(if (= #icon #icon_mwb)
		(set #iconsrc "AHI.MWB.info")
	)

	(copyfiles
		(help (cat #t_prefspathhelp @copylib-help))
		(prompt #t_installing "AHI")
		(source (tackon "User/Prefs" #iconsrc))
		(dest #prefspath)
		(newname "AHI.info")
		(confirm)
		(noposition)
	)

	(set @default-dest #prefspath)
))

;**
;** Install the audio handler
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #parts #audio)
(
	(copylib
		(help (cat #t_lpathhelp @copylib-help))
		(prompt #t_installing "AHI-Handler")
		(source "User/L/AHI-Handler")
		(dest #lpath)
		(confirm)
	)
	(protect (tackon #lpath "AHI-Handler") "+e")

	(copylib
		(help (cat #t_dosdevpathhelp @copylib-help))
		(prompt #t_installing "AUDIO")
		(source "User/Devs/DOSDrivers/AUDIO")
		(dest #dosdevpath)
		(confirm)
	)

	(if (= #icon #icon_std)
		(set #iconsrc "AUDIO.info")
	)
	(if (= #icon #icon_mwb)
		(set #iconsrc "AUDIO.MWB.info")
	)

	(copyfiles
		(help (cat #t_dosdevpathhelp @copylib-help))
		(prompt #t_installing "AUDIO")
		(source (tackon "User/Devs/DOSDrivers" #iconsrc))
		(dest #dosdevpath)
		(newname "AUDIO.info")
		(confirm)
		(noposition)
	)

	(set @default-dest #lpath)
))

;**
;** Install the user documentation
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #parts #userdoc)
(
	(copyfiles
		(help (cat #t_userdocpathhelp @copylib-help))
		(prompt #t_installing "ahi.guide")
		(source "User/Help/ahi.guide")
		(dest #userdocpath)
		(infos)
		(noposition)
	)

	(set @default-dest #userdocpath)
))


;**
;** Install ahi.device, AddAudioModes and drivers
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #parts #system)
(

;** ahi.device
	(copylib
		(help (cat #t_ahidevhelp @copylib-help))
		(prompt (cat #t_installing "ahi.device" #ver68k))
		(source (cat "User/Devs/ahi.device" #ver68k))
		(dest #devspath)
		(newname "ahi.device")
		(confirm)
	)

;** AddAudioModes
	(copylib
		(help (cat #t_cpathhelp @copylib-help))
		(prompt #t_installing "AddAudioModes")
		(source "User/C/AddAudioModes")
		(dest #cpath)
		(confirm)
	)
	(protect (tackon #cpath "AddAudioModes") "+e")

;** Drivers

	(if (bitand #drivers #Concierto)
		(P_INSTDRIVER "concierto.audio" "CONCIERTO")
	)
	(if (bitand #drivers #delfina)
		(P_INSTDRIVER "delfina.audio" "DELFINA")
	)
	(if (bitand #drivers #filesave)
		(P_INSTDRIVER "filesave.audio" "FILESAVE")
	)
	(if (bitand #drivers #maestropro)
		(P_INSTDRIVER "maestropro.audio" "MAESTROPRO")
	)
	(if (bitand #drivers #melody)
		(P_INSTDRIVER "melody.audio" "MELODY")
	)
	(if (bitand #drivers #paula)
		(P_INSTDRIVER "paula.audio" "PAULA")
	)
	(if (bitand #drivers #prelude)
		(P_INSTDRIVER "prelude.audio" "PRELUDE")
	)
	(if (bitand #drivers #toccata)
		(P_INSTDRIVER "toccata.audio" "TOCCATA")
	)
	(if (bitand #drivers #wavetools)
		(P_INSTDRIVER "wavetools.audio" "WAVETOOLS")
	)

	(run (cat (tackon #cpath "AddAudioModes") " REMOVE")
		(prompt #t_runaddmodes)
		(help #t_nohelp)
		(confirm)
	)

	(set @default-dest #devspath)
))


;**
;** Install the catalogs
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #parts (bitor #system #prefs))
(
;** Catalogs
	(if (bitand #languages #dansk)
		(P_INSTCATALOG #t_dansk)
	)
	(if (bitand #languages #deutsch)
		(P_INSTCATALOG #t_deutsch)
	)
	(if (bitand #languages #espaol)
		(P_INSTCATALOG #t_espaol)
	)
	(if (bitand #languages #franais)
		(P_INSTCATALOG #t_franais)
	)
	(if (bitand #languages #greek)
		(P_INSTCATALOG #t_greek)
	)
	(if (bitand #languages #hrvatski)
		(P_INSTCATALOG #t_hrvatski)
	)
	(if (bitand #languages #slenska)
		(P_INSTCATALOG #t_slenska)
	)
	(if (bitand #languages #italiano)
		(P_INSTCATALOG #t_italiano)
	)
	(if (bitand #languages #nederlands)
		(P_INSTCATALOG #t_nederlands)
	)
	(if (bitand #languages #norsk)
		(P_INSTCATALOG #t_norsk)
	)
	(if (bitand #languages #polski)
		(P_INSTCATALOG #t_polski)
	)
	(if (bitand #languages #portugus)
		(P_INSTCATALOG #t_portugus)
	)
	(if (bitand #languages #srpski)
		(P_INSTCATALOG #t_srpski)
	)
	(if (bitand #languages #suomi)
		(P_INSTCATALOG #t_suomi)
	)
	(if (bitand #languages #svenska)
		(P_INSTCATALOG #t_svenska)
	)
	(if (bitand #languages #etina)
		(P_INSTCATALOG #t_etina)
	)
))

;**
;** Install the autodocs
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #devdocs)
(
	(if (bitand #parts #a-developer)
		(set #pattern "~(#?sub#?)"))

	(if (bitand #parts #d-developer)
		(set #pattern "(#?sub#?)"))

	(if (and (bitand #parts #a-developer) (bitand #parts #d-developer))
		(set #pattern "#?"))

	(makedir #devdocspath)
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingdocs )
		(source "Developer/docs/")
		(dest #devdocspath)
		(pattern #pattern)
		(confirm average)
		(infos)
		(noposition)
	)

	(set @default-dest #devdocspath)
))

;**
;** Install the include files
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #fd)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "Developer/Include/FD")
		(dest #fdpath)
		(all)
	)

	(set @default-dest #fdpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #asm)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "Developer/include/Asm")
		(dest #aincpath)
		(all)
	)
	(set @default-dest #aincpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #cgen)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "Developer/Include/C")
		(dest #cincpath)
		(all)
	)

	(set @default-dest #cincpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #e)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "Developer/Include/E")
		(dest #emodpath)
		(all)
	)

	(set @default-dest #emodpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #ade)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "Developer/Include/ADE")
		(dest #adeincpath)
		(all)
	)

	(set @default-dest #adeincpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #sas)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "Developer/Include/SAS")
		(dest #sasincpath)
		(all)
	)

	(set @default-dest #sasincpath)
))

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #storm)
(
	(copyfiles
		(help @copylib-help)
		(prompt #t_installingincs)
		(source "Developer/Include/Storm")
		(dest #stormincpath)
		(all)
	)

	(set @default-dest #stormincpath)
))

;** 
;** Install the examples
;**

(complete (/ #complete 10)) (set #complete (+ #complete #completeadd))
(if (bitand #devfiles #source)
(
	(if (bitand #parts #a-developer)
	(
		(makedir (tackon #srcpath "examples/"))
		(copyfiles
			(help @copylib-help)
			(prompt #t_installingsrc)
			(source "Developer/examples")
			(dest (tackon #srcpath "examples/"))
			(all)
		)
	))
	(if (bitand #parts #d-developer)
	(
		(makedir (tackon #srcpath "drivers/"))
		(copyfiles
			(help @copylib-help)
			(prompt #t_installingsrc)
			(source "Developer/drivers")
			(dest (tackon #srcpath "drivers/"))
			(all)
		)
		(makedir (tackon #srcpath "support/"))
		(copyfiles
			(help @copylib-help)
			(prompt #t_installingsrc)
			(source "Developer/support")
			(dest (tackon #srcpath "support/"))
			(all)
		)
	))
	(if (bitand #parts (bitor #a-developer #d-developer))
	(
		(copyfiles
			(help @copylib-help)
			(prompt #t_installingsrc)
			(source "")
			(dest #srcpath)
			(pattern "(COPYRIGHT|HISTORY|VERSION|ahi.readme)#?")
		)
	))

	(set @default-dest #srcpath)
))




(complete 100)
(exit)
